home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Newton Sample Code 1.2 / Utility Functions / Chooser-2 / Chooser.text < prev    next >
Encoding:
Text File  |  1994-02-28  |  1022 b   |  46 lines  |  [TEXT/MPS ]
  1.  
  2. // ---- End Project Data ----
  3.  
  4.  
  5. // ---- File Chooser.t ----
  6.  
  7. // Before Script for "mainView"
  8. // Copyright 1993-1994 Apple Computer. All rights reserved. 
  9.  
  10. mainView :=
  11.    {title: "Application",
  12.     viewBounds: {left: -1, top: 8, right: 212, bottom: 141},
  13.     _proto: protoApp,
  14.     debug: "mainView"
  15.    };
  16.  
  17. theButton := /* child of mainView */
  18.    {text: "Choose Printer!",
  19.     buttonClickScript:
  20.       func()
  21.       begin
  22.            
  23.            GetRoot().Netchooser:OpenNetChooser(nil,"=:LaserWriter@",nil,self, "Use it, dude","Bogus Printer","printers");
  24.       
  25.            
  26.       end,
  27.     viewBounds: {left: 28, top: 20, right: 200, bottom: 64},
  28.     NetworkChooserDone:
  29.       func(currentSelection, currentZone)
  30.            begin
  31.                 getroot():Notify(kNotifyAlert,"Choice",currentSelection & " " & currentZone);
  32.            end,
  33.     _proto: protoTextButton,
  34.     debug: "theButton"
  35.    };
  36. // View theButton is declared to mainView
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44. // ---- Beginning of section for non used Layout files ----
  45.  
  46. // End of output